home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / ADD.INV next >
Encoding:
Text File  |  1983-01-04  |  2.9 KB  |  82 lines
  1. * add.inv 08/18/83
  2. ***********************************************************************
  3. * THIS MODULE ADDS RECORDS TO THE INVENTORY FILE
  4. * SINCE THE DATA BASE FOR THE .INV FILES IN NOT
  5. * INDEXED IT DOES NOT CONTAIN AN INDEX MODULE.
  6. * IN ADDITION, BECAUSE THE FILE IS IMMEDIATELY
  7. * AVAILABLE FOR EDITING WITHOUT HAVING TO WAIT
  8. * FOR THE INDEXING, IT IS NOT NECESSARY TO ADD AN
  9. * OPTION ALLOWING THE USER TO HAVE A SECOND TRY AT
  10. * CORRECTING DATA.
  11. ***********************************************************************
  12. ERASE
  13. STORE t TO first
  14. STORE t TO more
  15. DO WHILE more
  16.     IF first
  17.         STORE 'Add Volumes Module' TO mode
  18.         STORE 'Enter as many new volumes as needed.' TO prompt1
  19.         STORE 'When done, enter blank for volume number' TO prompt2
  20.         STORE "Or Control 'Q' to end session" TO prompt3
  21.         @  1,25 SAY mode
  22.         @  2, 0 SAY "+---------------------------------------"
  23.         @  2,39 SAY "---------------------------------------+"
  24.         @  3,26 SAY "SIG/M VOLUME"
  25.         @  5,14 SAY "Opening Inventory               Description of Volume"
  26.         @  7,19 SAY "Back Ordered"
  27.         @  8,15 SAY "Waiting Shipment"
  28.         @  9,14 SAY "Quantity Received"
  29.         @ 10,14 SAY "Closing Inventory"
  30.         @ 12,19 SAY "Normal Stock"
  31.         @ 13,14 SAY "Quantity to Order"
  32.         @ 14,15 SAY "Quantity Ordered"
  33.         @ 17,51 SAY "Update"
  34.         @ 19, 0 SAY "+--------------------------------------"
  35.         @ 19,39 SAY "----------------------------------------+"
  36.         @ 20,12 SAY prompt1
  37.         @ 21,12 SAY prompt2
  38.         @ 22,12 SAY prompt3
  39.     ENDIF first
  40.     STORE f TO first
  41. ENDIF first
  42. STORE f TO first
  43. STORE '   ' TO mdisk
  44. STORE '  ' TO mopen:inv
  45. STORE '  ' TO mback:ord
  46. STORE '  ' TO mwait:ship
  47. STORE '  ' TO mrecvd
  48. STORE '  ' TO mnorm:stk
  49. STORE '  ' TO morder
  50. STORE '  ' TO mpend
  51. STORE '                              ' TO mline1
  52. STORE '                              ' TO mline2
  53. STORE DATE() to mdayu
  54. @  3,39 GET mdisk picture '999'
  55. @  7,46 GET mline1
  56. @  8,46 GET mline2
  57. @  5,34 GET mopen:inv PICTURE '99'
  58. @  7,34 GET mback:ord PICTURE '99'
  59. @  8,34 GET mwait:ship PICTURE '99'
  60. @  9,34 GET mrecvd PICTURE '99'
  61. @ 12,34 GET mnorm:stk PICTURE '99'
  62. @ 13,34 GET morder PICTURE '99'
  63. @ 14,34 GET mpend PICTURE '99'
  64. @ 17,59 GET mdayu picture '99/99/99'
  65. READ
  66. CLEAR GETS
  67. IF mdisk <> ' '
  68.     APPEND BLANK
  69.     REPLACE disk WITH VAL(mdisk)
  70.     REPLACE open:inv WITH VAL(mopen:inv), back:ord WITH VAL(mback:ord)
  71.     REPLACE wait:ship WITH VAL(mwait:ship), recvd WITH VAL(mrecvd)
  72.     REPLACE norm:stk WITH VAL(mnorm:stk)
  73.     REPLACE order WITH VAL(morder), pend WITH VAL(mpend)
  74.     REPLACE line1 WITH mline1, line2 WITH mline2, dayu WITH mdayu
  75.     STORE t TO more
  76. ELSE
  77.     STORE f TO more
  78. ENDIF there is an empty record
  79. ENDDO while more
  80. RELEASE ALL
  81. STORE t TO first
  82.